home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / intuiextend20b.lha / distribution / exemples / 3dDraw.asc < prev    next >
Text File  |  1980-03-03  |  1KB  |  64 lines
  1. '**************************************
  2. '                                     *
  3. '     IntuiExtend.Lib 2.0/@1995-98    *
  4. '                                     *
  5. '          by CIERP Philippe.         *
  6. '                                     *
  7. '          from AMIGAzette 83         *
  8. '                                     *
  9. '**************************************
  10. '
  11. ' Commande 
  12. '  -Wb 3d Centre   
  13. '  -Wb 3d Eye    
  14. '  -Wb 3d Angle    
  15. '  -Wb 3d Locate   
  16. '  -Wb 3d X    
  17. '  -Wb 3d Y    
  18. '  -Wb 3d Draw   
  19. '
  20. Screen Open 0,640,256,2,$8000
  21. Curs Off : Flash Off : Cls 0
  22. Palette $0,$FFF
  23. Double Buffer : Autoback 0
  24. '
  25. Wb 3d Centre 320,128
  26. Wb 3d Eye 0,0,400
  27. AX=45 : AY=0 : AZ=0
  28. Wb 3d Angle AX,AY,AZ
  29. '
  30. While Mouse Key=0
  31. Add AX,3,0 To 359
  32. Add AY,3,0 To 359
  33. Add AZ,3,0 To 359
  34. Wb 3d Angle AX,AY,AZ
  35. '
  36. Wb 3d Locate -100,-100,0
  37. X=Wb 3d X : Y=Wb 3d Y
  38. Wb 3d Draw 100,-100,0
  39. Wb 3d Draw 100,100,0
  40. Wb 3d Draw -100,100,0
  41. Draw To X,Y
  42. '
  43. Wb 3d Locate -75,-75,20
  44. X=Wb 3d X : Y=Wb 3d Y
  45. Wb 3d Draw 75,-75,20
  46. Wb 3d Draw 75,75,20
  47. Wb 3d Draw -75,75,20
  48. Draw To X,Y
  49. '
  50. Wb 3d Locate -75,-75,-20
  51. X=Wb 3d X : Y=Wb 3d Y
  52. Wb 3d Draw 75,-75,-20
  53. Wb 3d Draw 75,75,-20
  54. Wb 3d Draw -75,75,-20
  55. Draw To X,Y
  56. '
  57. Circle 320,128,20
  58. Locate 0,0 : Print Timer
  59. Timer=0
  60. Screen Swap 
  61. Wait Vbl 
  62. Cls 0
  63. Wend 
  64.